home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Gemini / Horoscope Companion: Gemini.iso / pc / gemini / cc.dir / Internal_1.ls < prev    next >
Encoding:
Text File  |  1996-10-08  |  2.2 KB  |  69 lines
  1. on startMovie
  2.   cursor(4)
  3.   hSetupMovie()
  4. end
  5.  
  6. on stopMovie
  7.   hCleanupSprites()
  8. end
  9.  
  10. on idle
  11.   CheckForRollovers(the rollOver)
  12. end
  13.  
  14. on hSetupMovie
  15.   global gSunSignSprite, gSurpriseSpriteNum, gTextSpriteNum
  16.   set gSunSignSprite to 2
  17.   set gSurpriseSpriteNum to 2
  18.   set gTextSpriteNum to 6
  19. end
  20.  
  21. on hStartSunSignRolloverAction whichSprite, whichSunSign
  22.   global gSunSignSprite
  23.   set currentCastMember to the name of member the memberNum of sprite whichSprite of castLib the castLibNum of sprite whichSprite
  24.   if (the puppet of sprite whichSprite = 0) and (currentCastMember = "up state") then
  25.     puppetSprite(whichSprite, 1)
  26.     set the memberNum of sprite whichSprite to the memberNum of sprite whichSprite + 1
  27.     puppetSprite(gSunSignSprite, 1)
  28.     set mNum to the number of member ("sun sign" && whichSunSign) of castLib the castLibNum of sprite gSunSignSprite
  29.     set the memberNum of sprite gSunSignSprite to member mNum
  30.     updateStage()
  31.   end if
  32. end
  33.  
  34. on hEndSunSignRolloverAction whichSprite
  35.   global gSunSignSprite
  36.   puppetSprite(whichSprite, 0)
  37.   puppetSprite(gSunSignSprite, 0)
  38.   updateStage()
  39. end
  40.  
  41. on hSunSignButtonAction whichSunSign
  42.   global gSunSignSprite
  43.   puppetSound("click")
  44.   set rolledover to the memberNum of sprite the clickOn
  45.   set depressed to rolledover + 1
  46.   set released to rolledover - 1
  47.   set sunSignRollover to the number of member ("sun sign" && whichSunSign) of castLib the castLibNum of sprite gSunSignSprite
  48.   set sunSignUpState to the number of member "sun sign" of castLib the castLibNum of sprite gSunSignSprite
  49.   set the memberNum of sprite the clickOn to depressed
  50.   updateStage()
  51.   set the mouseUpScript to "hNoMouseUp"
  52.   repeat while the stillDown
  53.     if rollOver(the clickOn) then
  54.       set the memberNum of sprite the clickOn to depressed
  55.       set the memberNum of sprite gSunSignSprite to member sunSignRollover
  56.     else
  57.       set the memberNum of sprite the clickOn to released
  58.       set the memberNum of sprite gSunSignSprite to member sunSignUpState
  59.     end if
  60.     updateStage()
  61.   end repeat
  62.   if rollOver(the clickOn) then
  63.     set the memberNum of sprite the clickOn to rolledover
  64.     set the memberNum of sprite gSunSignSprite to member sunSignRollover
  65.     updateStage()
  66.   end if
  67.   return rollOver(the clickOn)
  68. end
  69.